home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / J-Jim Butterfield / (n)j2.d64 / library 8.6u (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  10KB  |  210 lines
  1. 1 GOTO1000
  2. 20 INPUT#15,E,E$,E1,E2:IFE=0ORE=74THEN23
  3. 22 PRINTE,E$:CLOSE8:CLOSE9:FORI=1TO900:NEXT
  4. 23 RETURN
  5. 30 Q$=""
  6. 31 GET#1,A$:IFA$=""THEN31
  7. 32 IFA$=CHR$(13)THEN34
  8. 33 Q$=Q$+A$:PRINTA$;:GOTO31
  9. 34 RETURN
  10. 40 PRINT"[147][158]":PRINT"[145][172]";:FORI=2TO39:PRINT"[146][183]";:NEXT:PRINT"[187]";:FORI=1TO5:PRINT"[146][181]";SPC(38);"[182]";:NEXT:PRINT"[188]";:FORI=2TO39:PRINT"[146][175]";:NEXT:PRINT"[190]";:IFU=1THEN55
  11. 47 PRINT"[172]";:FORI=2TO39:PRINT"[146][183]";:NEXT:PRINT"[187]";:PRINT"[146]";:FORI=1TO15:PRINT"[181]";SPC(38);"[182]";:NEXT:PRINT"[188][146]";:FORI=2TO39:PRINT"[175]";:NEXT:PRINT"[190]";
  12. 55 PRINT"[146]";SPC(14);"[204][201][194][210][193][210][217] V8.6";SPC(28)"[163][163][163][163][163][163][163][163][163][163][163][163]":RETURN
  13. 60 PRINT"[147]":POKE53281,0:POKE53280,0:PRINTCHR$(8):TX$="A":FORA=1TO254:TX$=TX$+"A":NEXT:OPEN1,0:Z$="Y":D=8:D1=8:FT$="P":OPEN15,D,15,"U9":UP=11338:FI=49955:DIMF$(144),T$(144),B$(10),C(144)
  14. 70 RESTORE:FORI=896TO937:READX:POKEI,X:NEXT:RETURN
  15. 80 RESTORE:FORI=896TO937:READX:POKEI,X:NEXT:FORI=916TO933:READX:POKEI,X:NEXT:POKE924,254:RETURN
  16. 90 REM        UNILOAD KLOOGE BY JIM BUTTERFIELD
  17. 92 RETURN
  18. 1000 ::GOSUB90:GOSUB60
  19. 1006 GOSUB40:PRINT""SPC(15)"[205]AIN  [205]ENU":PRINT"":PRINTSPC(5)"[[195]]REATE NEW [204]IBRARY.":PRINTSPC(5)"[[213]]NCREATE EXISTING [204]IBRARY.":PRINTSPC(5)"[[193]]DD FILE TO EXISTING [204]IBRARY.":PRINTSPC(5)"[[196]]ISK [213]TILITIES.":PRINTSPC(5)"[[209]]UIT.":PRINTSPC(5)"[211]ELECT:[ ][157][157]";
  20. 1026 GETQ$:IFQ$=""THEN1026
  21. 1028 IF(ASC(Q$)>64ANDASC(Q$)<91)THENPRINTQ$"[157]";:GOTO1030
  22. 1029 PRINT" [157]";
  23. 1030 IFQ$="C"THENGOSUB3000:GOTO1006
  24. 1032 IFQ$="U"THENGOSUB4000:GOTO1006
  25. 1034 IFQ$="A"THENGOSUB5000:GOTO1006
  26. 1036 IFQ$="D"THENGOSUB6000:GOTO1006
  27. 1040 IFQ$="Q"THEN8000
  28. 1042 PRINT" [157]";:GOTO1026
  29. 3000 ::GOSUB40:PRINTSPC(13)"[195]REATE [204]IBRARY":PRINT"":PRINT"[213]SE THESE FILES IN THE LIBRARY?":U=1:OPEN8,D,0,"$0":GOSUB20:IFE<>0ANDE<>73THENRETURN
  30. 3030 GOSUB70:POKE917,0:GET#8,A$,A$,A$,A$,A$,A$:SYS896
  31. 3050 GET#8,A$,A$,A$,B$:C=ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256:IFPEEK(144)<>0THEN3180
  32. 3080 PRINTC;:SYS896:SS=PEEK(144):PRINTLEFT$(TX$,PEEK(142));:IFLEFT$(TX$,3)="BLO"THEN3180
  33. 3100 PRINTTAB(30);"(Y/N) ";:A$=LEFT$(TX$,PEEK(142))
  34. 3120 IFUY=0THENGETT$:IFT$<>" "ANDT$<>"Y"ANDT$<>"N"ANDT$<>CHR$(13)THEN3120
  35. 3130 IFT$=CHR$(13)THENT$=Z$:UY=1
  36. 3140 PRINTT$:IFT$=CHR$(32)THEN3190
  37. 3160 IFT$="Y"THENGOSUB3210
  38. 3170 Z$=T$:GOTO3050
  39. 3180 PRINT"[145]BLOCKS FREE"
  40. 3190 CLOSE8:POKE917,13:GOSUB80:PRINT#15,"U9":N=U:GOTO3260
  41. 3210 C(U)=C:T$(U)=MID$(STR$(C)+A$,25,1):F$(U)=MID$(STR$(C)+A$,7,16):IFT$(U)="R"THENF$(U)=""
  42. 3230 FORA=1TOLEN(F$(U)):IFMID$(F$(U),A,1)=CHR$(34)THENF$(U)=LEFT$(F$(U),A-1)
  43. 3250 NEXTA:U=U+1:RETURN
  44. 3260 PRINT:N=N-1:PRINT"[204][194][210] FILENAME (12 CHARS MAX) ";
  45. 3270 INPUT#1,L$:IFL$=""ORLEN(L$)>12THEN3270
  46. 3280 IFRIGHT$(L$,4)=".LBR"THENL$=LEFT$(L$,LEN(L$)-4)
  47. 3290 PRINT:Q=320:IFD<>D1THENQ=660
  48. 3300 FORA=1TON:Q=Q-C(A):IFQ<1THENQ=Q+C(A):F$(A)=""
  49. 3320 NEXTA:PRINT"[212]HESE FILES WILL FIT IN THE LIBRARY":FORA=1TON:IFF$(A)<>""THENPRINTF$(A)
  50. 3350 NEXTA:PRINT"[195]OUNTING FILE SIZE..":FORA=1TON:IFF$(A)=""THEN3430
  51. 3380 F$=F$(A):OPEN8,D,8,F$+",M":GOSUB20:IFE<>0ANDE<>73THENRETURN
  52. 3390 H=0
  53. 3400 SYS896:H=H+PEEK(142):IFPEEK(144)=64THENCLOSE8:GOTO3420
  54. 3410 GOTO3400
  55. 3420 C(A)=H:PRINTF$(A);"=";C(A);"BYTES"
  56. 3430 NEXT:ZQ=0:FORI=1TON:IFF$(I)=""THEN3450
  57. 3440 ZQ=ZQ+1
  58. 3450 NEXT:PRINT"[215]RITING [204]IBRARY [198]ILE...":OPEN9,D1,9,L$+".LBR,"+FT$+",W":GOSUB20:IFE<>0ANDE<>73THENRETURN
  59. 3490 PRINT#9,"DWB";:PRINT#9,ZQ:FORI=1TON:IFF$(I)=""THEN3530
  60. 3520 PRINT#9,F$(I):PRINT#9,T$(I):PRINT#9,C(I)
  61. 3530 NEXTI:FORI=1TON:IFF$(I)=""THEN3630
  62. 3550 OPEN8,D,8,F$(I)+","+T$(I)+",R":GOSUB20:IFE<>0ANDE<>73THENRETURN
  63. 3570 H=0
  64. 3580 SYS896:B$(H)=LEFT$(TX$,PEEK(142)):SR=PEEK(144):IFSR<>0THENCLOSE8:GOTO3610
  65. 3590 H=H+1:IFH<10THEN3580
  66. 3600 H=H-1
  67. 3610 FORA=0TOH:PRINT#9,B$(A);:NEXT:IFSR=0THEN3570
  68. 3630 NEXTI:CLOSE9:RETURN
  69. 4000 ::PRINT"[147]"
  70. 4010 ::PRINT:SI=0
  71. 4030 PRINT"[206]AME OF [204]IBRARY [198]ILE ";:INPUT#1,L$:IFL$=""ORLEN(L$)>12THEN4030
  72. 4050 IFRIGHT$(L$,4)=".LBR"THENL$=LEFT$(L$,LEN(L$)-4)
  73. 4060 PRINT:L$=L$+".LBR,"+FT$+",R":OPEN8,D,8,L$:GOSUB20:IFE<>0ANDE<>73THENRETURN
  74. 4080 GET#8,A$,B$,C$:T$=A$+B$+C$:IFT$="DWB"THEN4100
  75. 4090 PRINT"[201]NCOMPATIBLE [204]IBRARY [198]ILE!!":CLOSE8:FORI=1TO500:NEXT:RETURN
  76. 4100 INPUT#8,N:FORA=1TON:INPUT#8,F$(A),T$(A),C(A):NEXTA:PRINT"[198]ILES IN THIS LIBRARY":PRINT"[198]ILENAME";TAB(20);"[211]IZE IN BYTES":FORA=1TON:PRINTA;F$(A);TAB(20);C(A):NEXT:GOTO4260
  77. 4140 PRINT"[195]REATING":FORZ=1TON:C=C(Z):B=INT(C/254):M=C-(B*254):PRINTF$(Z)
  78. 4150 OPEN9,D1,9,F$(Z)+","+T$(Z)+",W":GOSUB20:IFE<>0ANDE<>73THENRETURN
  79. 4165 GOSUB80:IFB=0THENPOKE924,M:SYS896:PRINT#9,LEFT$(TX$,PEEK(142));:GOTO4210
  80. 4180 FORA=1TOB:SYS896:PRINT#9,LEFT$(TX$,PEEK(142));:NEXTA:POKE924,M:IFM=0THEN4210
  81. 4200 SYS896:PRINT#9,LEFT$(TX$,PEEK(142));
  82. 4210 POKE924,254:CLOSE9:IFSI=-99THENCLOSE8:GOTO4350
  83. 4230 NEXTZ:CLOSE8:PRINT"[196]ONE.":RETURN
  84. 4260 PRINT"[196]O YOU WISH TO EXTRACT A SINGLE FILE":PRINT"OR CONVERT THE ENTIRE LIBRARY?":PRINT"(S)INGLE OR (A)LL ";
  85. 4290 GETA$:IFA$<>"S"ANDA$<>"A"THEN4290
  86. 4300 PRINTA$:IFA$="A"THEN4140
  87. 4310 PRINT"[215]HICH FILE (1-";MID$(STR$(N),2);")? ";
  88. 4320 INPUT#1,A$:Z=INT(VAL(A$)):IFZ<1ORZ>NTHEN4320
  89. 4340 PRINT:GOTO4400
  90. 4350 PRINT"ANY MORE FILES? (Y/N) ";
  91. 4360 GETA$:IFA$<>"Y"ANDA$<>"N"THEN4360
  92. 4370 PRINTA$:IFA$="Y"THEN4010
  93. 4390 RETURN
  94. 4400 IFZ=1THENSI=-99:C=C(Z):B=INT(C/254):M=C-(B*254):PRINTF$(Z):GOTO4150
  95. 4410 PRINT"[211]KIPPING UNWANTED FILES...":FORQ=1TOZ-1:C=C(Q):B=INT(C/254):M=C-(B*254):PRINTF$(Q):IFB=0THENPOKE924,M:SYS896:GOTO4490
  96. 4450 FORA=1TOB:SYS896:NEXTA:POKE924,M:IFM=0THEN4490
  97. 4470 SYS896:NEXTQ
  98. 4490 POKE924,254:CLOSE9:SI=-99:C=C(Z):B=INT(C/254):M=C-(B*254):PRINT"[215]RITING "F$(Z):GOTO4150
  99. 4510 PRINT"[147][204]IBRARY [206]AME (12 CHARS MAX) ";:INPUT#1,L$:IFL$=""ORLEN(L$)>12THEN4510
  100. 4530 PRINT:IFRIGHT$(L$,4)=".LBR"THENL$=LEFT$(L$,LEN(L$)-4)
  101. 4540 PRINT:PRINT"[206]AME OF FILE TO ADD ";:INPUT#1,F$:IFF$=""ORLEN(F$)>16THEN4540
  102. 4550 PRINT:PRINT"[198]ILETYPE OF ";F$;"(P/S/U) ";
  103. 4560 GETT$:IFT$<>"P"ANDT$<>"S"ANDT$<>"U"THEN4560
  104. 4570 PRINTT$:PRINT"[195]OUNTING ";F$;:OPEN8,D,8,F$+","+T$+",R":GOSUB20:IFE<>0ANDE<>73THENRETURN
  105. 4600 H=0
  106. 4610 SYS896:H=H+PEEK(142):IFPEEK(144)=64THENCLOSE8:GOTO4630
  107. 4620 GOTO4610
  108. 4630 PRINT" =";H;"BYTES":PRINT"[197]NTER [206]EW [206]AME OF [204]IBRARY ";
  109. 4650 INPUT#1,LN$:IFLN$=""ORLEN(LN$)>12THEN4650
  110. 4660 IFRIGHT$(L$,4)=".LBR"THENL$=LEFT$(L$,LEN(L$)-4)
  111. 4670 PRINT"[210]EADING [207]LD [204]IBRARY [196]IRECTORY...":PRINT:OPEN8,D1,8,L$+".LBR":GOSUB20:IFE<>0ANDE<>73THENRETURN
  112. 4690 GET#8,A$,B$,C$:V$=A$+B$+C$:IFV$="DWB"THEN4710
  113. 4700 PRINT"[201]NCOMPATIBLE LIBRARY [198]ILE!!!":CLOSE8:FORI=1TO500:NEXT:RETURN
  114. 4710 INPUT#8,N:FORA=2TON+1:INPUT#8,F$(A),T$(A),C(A):NEXT:CLOSE8:N=N+1:F$(1)=F$:T$(1)=T$:C(1)=H:OPEN9,D1,9,LN$+".LBR,"+FT$+",W":GOSUB20:IFE<>0ANDE<>73THENRETURN
  115. 4740 PRINT"[195]REATING [206]EW [204]IBRARY [196]IRECTORY...":PRINT#9,"DWB";:PRINT#9,N:FORA=1TON:PRINT#9,F$(A):PRINT#9,T$(A):PRINT#9,C(A):NEXT:PRINT"[193]DDING "F$" TO LIBRARY...":OPEN8,D,8,F$+","+T$+",R":GOSUB20:IFE<>0ANDE<>73THENRETURN
  116. 4800 H=0
  117. 4810 SYS896:B$(H)=LEFT$(TX$,PEEK(142)):SR=PEEK(144):IFSR<>0THENCLOSE8:GOTO4840
  118. 4820 H=H+1:IFH<10THEN4810
  119. 4830 H=H-1
  120. 4840 FORA=0TOH:PRINT#9,B$(A);:NEXT:IFSR=0THEN4800
  121. 4860 IFIS=1THENPRINT"[196]ONE":CLOSE9:RETURN
  122. 4870 PRINT"[193]DDING EXISTING FILES TO NEW LIBRARY...":OPEN8,D1,8,L$+".LBR,"+FT$+",R":GOSUB20:IFE<>0ANDE<>73THENRETURN
  123. 4900 GET#8,A$,B$,C$:INPUT#8,N:FORA=1TON:INPUT#8,A$:INPUT#8,A$:INPUT#8,A$:NEXT:IS=1:GOTO4800
  124. 5000 :
  125. 5010 PRINT"[147][204]IBRARY [206]AME (12 CHARS MAX) ";:INPUT#1,L$:IFL$=""ORLEN(L$)>12THEN5010
  126. 5030 PRINT:IFRIGHT$(L$,4)=".LBR"THENL$=LEFT$(L$,LEN(L$)-4)
  127. 5040 PRINT:PRINT"[206]AME OF FILE TO ADD ";:INPUT#1,F$:IFF$=""ORLEN(F$)>16THEN5040
  128. 5050 PRINT:PRINT"[198]ILETYPE OF ";F$;"(P/S/U) ";
  129. 5060 GETT$:IFT$<>"P"ANDT$<>"S"ANDT$<>"U"THEN5060
  130. 5070 PRINTT$:PRINT"[195]OUNTING ";F$;:OPEN8,D,8,F$+","+T$+",R":GOSUB20:IFE<>0ANDE<>73THENRETURN
  131. 5100 H=0
  132. 5110 SYS896:H=H+PEEK(142):IFPEEK(144)=64THENCLOSE8:GOTO5130
  133. 5120 GOTO5110
  134. 5130 PRINT" =";H;"BYTES":PRINT"[197]NTER [206]EW [206]AME OF [204]IBRARY ";
  135. 5150 INPUT#1,LN$:IFLN$=""ORLEN(LN$)>12THEN5150
  136. 5160 IFRIGHT$(L$,4)=".LBR"THENL$=LEFT$(L$,LEN(L$)-4)
  137. 5170 PRINT"[210]EADING [207]LD [204]IBRARY [196]IRECTORY...":PRINT:OPEN8,D1,8,L$+".LBR":GOSUB20:IFE<>0ANDE<>73THENRETURN
  138. 5190 GET#8,A$,B$,C$:V$=A$+B$+C$:IFV$<>"DWB"THENPRINT"[201]NCOMPATIBLE LIBRARY [198]ILE!!!":CLOSE8:RETURN
  139. 5210 INPUT#8,N:FORA=2TON+1:INPUT#8,F$(A),T$(A),C(A):NEXT:CLOSE8:N=N+1:F$(1)=F$:T$(1)=T$:C(1)=H:OPEN9,D1,9,LN$+".LBR,"+FT$+",W":GOSUB20:IFE<>0ANDE<>73THENRETURN
  140. 5240 PRINT"[195]REATING [206]EW [204]IBRARY [196]IRECTORY...":PRINT#9,"DWB";:PRINT#9,N:FORA=1TON:PRINT#9,F$(A):PRINT#9,T$(A):PRINT#9,C(A):NEXT:PRINT"[193]DDING "F$" TO LIBRARY...":OPEN8,D,8,F$+","+T$+",R":GOSUB20:IFE<>0ANDE<>73THENRETURN
  141. 5300 H=0
  142. 5310 SYS896:B$(H)=LEFT$(TX$,PEEK(142)):SR=PEEK(144):IFSR<>0THENCLOSE8:GOTO5340
  143. 5320 H=H+1:IFH<10THEN5310
  144. 5330 H=H-1
  145. 5340 FORA=0TOH:PRINT#9,B$(A);:NEXT:IFSR=0THEN5300
  146. 5360 IFIS=1THENPRINT"[196]ONE":CLOSE9:RETURN
  147. 5370 PRINT"[193]DDING EXISTING FILES TO NEW LIBRARY...":OPEN8,D1,8,L$+".LBR,"+FT$+",R":GOSUB20:IFE<>0ANDE<>73THENRETURN
  148. 5400 GET#8,A$,B$,C$:INPUT#8,N:FORA=1TON:INPUT#8,A$:INPUT#8,A$:INPUT#8,A$:NEXT:IS=1:GOTO5300
  149. 6000 :
  150. 6005 GOSUB40:PRINT"":PRINTSPC(13)"[196]ISK [213]TILITIES":PRINT"":PRINTSPC(5)"[[196]]ISK [196]IRECTORY.":PRINTSPC(5)"[[204]]IBRARY [196]IRECTORY.":PRINTSPC(5)"[[211]]CRATCH [198]ILE.":PRINTSPC(5)"[[210]]ENAME [198]ILE.":PRINTSPC(5)"[[213]]PDATE [196]RIVE PARAMETERS.":PRINTSPC(5)"[[197]]XIT.":PRINTSPC(5)"[211]ELECT:[ ][157][157]";
  151. 6050 GETQ$:IFQ$=""THEN6050
  152. 6055 IF(ASC(Q$)>64ANDASC(Q$)<91)THENPRINTQ$"[157]";:GOTO6065
  153. 6060 PRINT" [157]";
  154. 6065 IFQ$="D"THENGOSUB6100:GOTO6005
  155. 6070 IFQ$="L"THENGOSUB6200:GOTO6005
  156. 6075 IFQ$="S"THENGOSUB6300:GOTO6005
  157. 6080 IFQ$="R"THENGOSUB6400:GOTO6005
  158. 6085 IFQ$="U"THENGOSUB6500:GOTO6005
  159. 6090 IFQ$="E"THENRETURN
  160. 6095 PRINT" [157]";:GOTO6050
  161. 6100 ::U=1:GOSUB40:PRINTSPC(13)"[196]ISK [196]IRECTORY":OPEN8,D,0,"$0":GOSUB20:IFE<>0ANDE<>73THENRETURN
  162. 6111 CT=0:PRINT"";:GOSUB70:POKE917,0:GET#8,A$,A$,A$,A$,A$,A$:SYS896
  163. 6125 GET#8,A$,A$,A$,B$:C=ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256:IFPEEK(144)<>0THEN6160
  164. 6140 PRINTSPC(5)C;:SYS896:SS=PEEK(144):PRINTLEFT$(TX$,PEEK(142)):IFLEFT$(TX$,3)="BLO"THEN6160
  165. 6150 CT=CT+1:IFCT>13THENSYSUP,0,7,39,15,0:PRINT""
  166. 6155 GOTO6125
  167. 6160 SYSUP,0,7,39,15,0:CLOSE8:POKE917,13:GOSUB80:PRINT#15,"U9":N=U:SYSUP,0,7,39,15,0:PRINTSPC(12)"<[208]RESS ANY KEY>";
  168. 6175 GETQ$:IFQ$=""THEN6175
  169. 6177 U=0:RETURN
  170. 6200 ::U=1:GOSUB40:SI=0
  171. 6215 PRINT"[206]AME OF [204]IBRARY [198]ILE: ";:GOSUB30:L$=Q$:PRINT:IFL$=""ORLEN(L$)>12THEN6215
  172. 6225 IFRIGHT$(L$,4)=".LBR"THENL$=LEFT$(L$,LEN(L$)-4)
  173. 6230 PRINT:L$=L$+".LBR,"+FT$+",R":OPEN8,D,8,L$:GOSUB20:IFE<>0ANDE<>73THENRETURN
  174. 6240 GET#8,A$,B$,C$:T$=A$+B$+C$:IFT$="DWB"THEN6260
  175. 6250 PRINT"[201]NCOMPATIBLE [204]IBRARY [198]ILE!!":FORI=1TO500:NEXT:RETURN
  176. 6260 INPUT#8,N:FORA=1TON:INPUT#8,F$(A),T$(A),C(A):NEXTA:PRINTSPC(4)"[198]ILES IN THIS LIBRARY":PRINT:PRINTSPC(4)"[198]ILENAME";TAB(20);"[211]IZE IN BYTES":CT=0:FORA=1TON:PRINTSPC(4)F$(A);TAB(19);C(A):CT=CT+1:IFCT>14THENSYSUP,0,8,39,15,0
  177. 6278 NEXT:PRINTSPC(10)"<[208]RESS ANY KEY>";
  178. 6285 GETQ$:IFQ$=""THEN6285
  179. 6287 CLOSE8:U=0:RETURN
  180. 6300 ::GOSUB40:PRINT""SPC(14)"[211]CRATCH [198]ILE":PRINT"[206]AME OF [198]ILE [211]CRATCH";:GOSUB30:Q1$=Q$:PRINT:PRINTQ1$:PRINT#15,"S0:";Q1$:GOSUB20:IFE=0ORE=73THEN6360
  181. 6350 PRINT:PRINT,E,E$:GOTO6370
  182. 6360 PRINT:PRINTSPC(5)E1;" FILES [211]CRATCHED."
  183. 6370 FORI=1TO800:NEXT:RETURN
  184. 6400 ::GOSUB40:PRINT""SPC(14)"[210]ENAME  [198]ILE":PRINT"[206]AME OF [198]ILE TO [210]ENAME:";:GOSUB30:Q1$=Q$:PRINT:PRINT"[206]EW [206]AME              :";:GOSUB30:Q3$=Q$:PRINT:PRINT#15,"R0:"Q3$"=0:"Q:PRINTSPC(5)E1;" FILES [211]CRATCHED.":FORI=1TO800:NEXT:RETURN:GOSUB40:PRINT""SPC(14)"[210]ENAME  [198]ILE":PRINT"[206]AME OF [198]ILE TO [210]ENAME:";:GOSUB30
  185. 6415 Q1$=Q$:PRINT:PRINT"[206]EW [206]AME              :";:GOSUB30:Q3$=Q$:PRINT:PRINT#15,"R0:"Q3$"=0:"Q1$:GOSUB20:IFE=0ORE=73THEN6460
  186. 6450 PRINTSPC(8)E$:GOTO6470
  187. 6460 PRINT:PRINTSPC(5)Q1$" [210]ENAMED TO "Q3$
  188. 6470 FORI=1TO800:NEXT:RETURN
  189. 6500 ::GOSUB40
  190. 6505 PRINT""SPC(9)"[213]PDATE [196]ISK [208]ARAMETERS":PRINT"":PRINTSPC(11);"[195]URRENT [208]ARAMETERS":PRINTSPC(5)"[[211]]OURCE [196]RIVE:";"   [157][157][157]"D;"":PRINTSPC(5)"[[212]]ARGET [196]RIVE:";"   [157][157][157]"D1;"":PRINTSPC(5)"[[204]]IBRARY [198]ILE [212]YPE: ";:IFFT$="P"THENPRINT"PRG":GOTO6534
  191. 6533 PRINT"SEQ"
  192. 6534 PRINTSPC(5)"[[197]]XIT.":PRINTSPC(5)"[211]ELECT:[ ][157][157]";
  193. 6540 GETQ$:IFQ$=""THEN6540
  194. 6542 IF(ASC(Q$)>64ANDASC(Q$)<91)THENPRINTQ$"[157]";:GOTO6544
  195. 6543 PRINT" [157]";
  196. 6544 IFQ$="S"THENGOSUB6570:GOTO6505
  197. 6545 IFQ$="T"THENGOSUB6575:GOTO6505
  198. 6550 IFQ$="L"THENGOSUB6580:GOTO6505
  199. 6555 IFQ$="E"THENRETURN
  200. 6557 PRINT" [157]";:GOTO6540
  201. 6570 D=D+1:IFD>11THEND=8:RETURN
  202. 6571 RETURN
  203. 6575 D1=D1+1:IFD1>11THEND1=8:RETURN
  204. 6576 RETURN
  205. 6580 IFFT$="P"THEN6584
  206. 6582 FT$="P":GOTO6585
  207. 6584 FT$="S"
  208. 6585 RETURN:FORI=1TO800:NEXT:RETURN
  209. 8000 ::PRINT"[147]":END:END:DATA 160,2,177,45,153,137,0,200,192,6:DATA 208,246,162,8,32,198,255:DATA 32,228,255,201,13,240,15,164,142,145:DATA 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255:DATA 164,142,145,140,200,132,142,192,0,240,4,165,144,240,238,76,204,255
  210.